home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / LIFE MGMT TEXT ORGANIZER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  209 lines
  1. 5  HOME 
  2. 10  REM  BY DEREK KELLY FROM MARCH 1980 ISSUE OF PERSONAL COMPUTING PAGES 29,36
  3. 15  CLEAR 
  4. 20  DIM N$(84)
  5. 22  DIM M(84)
  6. 25  DATA  I,II,III,IV,A,B,C,D,1,2,3,4
  7. 35  FOR Y = 1 TO 40: PRINT "!!;: NEXT V
  8. 40  VTAB (5): PRINT  TAB( 12)"/TEXT ORGANIZER/"
  9. 45  FOR V = 1 TO 40: PRINT ".";: NEXT V
  10. 46  PRINT 
  11. 47  INPUT "TITLE=:";T$
  12. 48  PRINT 
  13. 50  PRINT  TAB( 10)"INPUT CHOICES:"
  14. 55  PRINT  TAB( 12)"1 RANDOM INPUT"
  15. 60  PRINT  TAB( 12)"2 SEQUENTIAL INPUT"
  16. 65  INPUT "CHOICE #";C
  17. 70  IF C = 0  OR C =  >3  THEN 32
  18. 75  ON C GOSUB 300,500
  19. 77 :: REM 
  20. 80  PRINT "#0-END:#1-INPUT:#2-PRINT";
  21. 82  INPUT F
  22. 84  IF F = 0  THEN  END 
  23. 87  ON F GOSUB 300,400
  24. 95  GOTO 80
  25. 97 ::
  26. 100  REM  GOSUB TO READ DATA
  27. 102  RESTORE 
  28. 103 :: REM 
  29. 104  FOR I = 1 TO 4
  30. 106  READ P$(I)
  31. 108  NEXT I
  32. 109 :: REM 
  33. 110  FOR J = 1 TO 4
  34. 112  READ S$(J)
  35. 114  NEXT J
  36. 115 :: REM 
  37. 116  FOR K = 1 TO 4
  38. 118  READ T%(K)
  39. 120  NEXT K
  40. 121 :: REM 
  41. 122  RETURN 
  42. 124  REM  END OF READ DATA SUBROUTINE
  43. 125  REM  GOSUB TO PRINT OUTLINE
  44. 126  HOME 
  45. 127  PRINT "TITLE=:";T$
  46. 128 :: REM 
  47. 129  FOR I = 1 TO 4
  48. 131  PRINT P$(I)"."
  49. 132 :: REM 
  50. 133  FOR J = 1 TO 4
  51. 135  PRINT  TAB( 2)5$(J)"."
  52. 136 :: REM 
  53. 137  FOR K = 1 TO 4
  54. 139  PRINT  TAB( 4)T%(K)"."
  55. 140  NEXT K
  56. 142  NEXT J
  57. 144  GET ANS$
  58. 146  NEXT I
  59. 149  RETURN 
  60. 157  PRINT 
  61. 158 :: REM 
  62. 160  INPUT N$(M)
  63. 165 M = M +1
  64. 170  RETURN 
  65. 172 ::
  66. 174  REM  I-IV INPUT GOSUB
  67. 176  INPUT N$(M)
  68. 178 M = M +21
  69. 180  RETURN 
  70. 182 ::
  71. 184  REM  A-D INPUT GOSUB
  72. 186  INPUT N$(M)
  73. 188 M = M +5
  74. 190  RETURN 
  75. 192 :: REM 
  76. 200  REM  I-IV INPUTS
  77. 201 M = 1
  78. 202  HOME : VTAB (5)
  79. 204  GOSUB 100
  80. 205 ::
  81. 206  FOR I = 1 TO 4
  82. 208  PRINT P$(I)".";N$(M)
  83. 210  INPUT "INPUT OR NOT :1/2?";E
  84. 211  IF E = 0  OR E =  >3  THEN 230
  85. 212  ON E GOSUB 176,178
  86. 228  NEXT I
  87. 229 ::
  88. 230  RETURN 
  89. 232 :: REM 
  90. 235  REM  A-D INPUTS
  91. 236 M = 1
  92. 237  HOME : VTAB (5): GOSUB 100
  93. 238 ::
  94. 239  FOR I = 1 TO 4
  95. 241  PRINT P$(I)".";N$(M)
  96. 242  GOSUB 165
  97. 243  FOR J = 1 TO 4
  98. 245  PRINT  TAB( 2)S$(J)".";N$(M)
  99. 247  INPUT "INPUT OR NOT:1/2?";F
  100. 248  IF F = 0  OR F =  >3  THEN 260
  101. 249  ON F GOSUB 186,188
  102. 251  NEXT J
  103. 253  NEXT I
  104. 255 ::
  105. 260  RETURN 
  106. 262 :: REM 
  107. 265  REM  1-4 INPUT
  108. 266 :M = 1: HOME : VTAB (5): GOSUB 100
  109. 267 ::
  110. 268  FOR I = 1 TO 4
  111. 269  PRINT P$(I)".";N$(M)
  112. 270  GOSUB 165
  113. 271  FOR J = 1 TO 4
  114. 273  PRINT  TAB( 2)S$(J)"."N$(M)
  115. 275  GOSUB 165
  116. 277  FOR K = 1 TO 4
  117. 279  PRINT  TAB( 4)T%(K)"."N$(M)
  118. 281  INPUT "INPUT OR NOT (1/2)?";G
  119. 282  IF G = 0  OR G =  >3  THEN 295
  120. 283  ON G GOSUB 160,165
  121. 285  NEXT K
  122. 287  NEXT J
  123. 289  NEXT I
  124. 290 ::
  125. 295  RETURN 
  126. 300  REM  RANDOM INPUT SUBROUTINE
  127. 303  HOME : VTAB (5)
  128. 306  PRINT  TAB( 13)"/RANDOM INPUT/"
  129. 309  PRINT 
  130. 312  PRINT "INPUT CHOICES"
  131. 315  PRINT  TAB( 4)"1 I-IV PARTS-#1"
  132. 318  PRINT  TAB( 4)"2 A-D SECTIONS-#2"
  133. 321  PRINT  TAB( 4)"3 1-4 POINTS-#3"
  134. 324  PRINT  TAB( 4)"4. PRINT OUT-#4"
  135. 325  PRINT "(INPUT'0'TO RETURN)"
  136. 326 ::
  137. 327  INPUT "CHOICE #:";D
  138. 330  IF D = 0  THEN 399
  139. 333  ON D GOSUB 200,235,265,400
  140. 335 ::
  141. 336  GOTO 312
  142. 399  RETURN 
  143. 400  GOSUB 800
  144. 401 M = 1: HOME : VTAB (18)
  145. 402  PRINT "TITLE:";T$
  146. 404  GOSUB 100
  147. 405 :: REM 
  148. 408  FOR I = 1 TO 4
  149. 410  PRINT P$(I)".";
  150. 412  PRINT N$(M)
  151. 430  GOSUB 165
  152. 432 :: REM 
  153. 435  FOR J = 1 TO 4
  154. 440  PRINT  TAB( 2)S$(J)".";
  155. 445  PRINT N$(M)
  156. 450  GOSUB 165
  157. 451 :: REM 
  158. 455  FOR K = 1 TO 4
  159. 460  PRINT  TAB( 4)T%(K)".";
  160. 465  PRINT N$(M)
  161. 470  GOSUB 165
  162. 472 :: REM 
  163. 475  NEXT K
  164. 477  GET ANS$
  165. 480  NEXT J
  166. 483  GET ANS$
  167. 485  NEXT I
  168. 487 :: REM 
  169. 490  GOSUB 810
  170. 495  RETURN 
  171. 496 ::
  172. 500  REM  SEQUENTIAL INPUT GOSUB
  173. 501  HOME 
  174. 502  PRINT  TAB( 11)"'SEQUENTIAL INPUT'"
  175. 503 ::
  176. 505 M = 1
  177. 507 ::
  178. 510  INPUT "OUTLINE?(1/0):";X
  179. 512  GOSUB 100
  180. 513  ON XGOXUB125
  181. 514 :: HOME 
  182. 515  GOSUB 100
  183. 517 :: REM 
  184. 520  FOR I = 1 TO 4
  185. 525  PRINT P$(I)".";
  186. 530  GOSUB 160
  187. 532 :: REM 
  188. 535  FOR J = 1 TO 4
  189. 537  PRINT  TAB( 2)5$(J)".";
  190. 540  GOSUB 160
  191. 541 :: REM 
  192. 543  FOR K = 1 TO 4
  193. 545  PRINT  TAB( 4)T%(K)".";
  194. 555  GOSUB 160
  195. 557 :: REM 
  196. 560  NEXT K
  197. 565  NEXT J
  198. 570  NEXT I
  199. 575  PRINT "JUST A PAUSE...HIT KEY!": GET ANS$
  200. 580  GOSUB 400
  201. 590  RETURN 
  202. 598 :: REM 
  203. 599 :: REM 
  204. 800  REM  POKE54,0:POKE55,192+1
  205. 802  REM  PRINT "CNTRL-I-K";
  206. 804  REM  PRINT"C-180N";
  207. 806  RETURN 
  208. 810  REM  POKE54,240:POKE55,253
  209. 812  RETURN